10 REM TITLE:       WATERBOMB
20 REM AUTHOR:      GEORGE TREPAL
30 REM MODIFIED BY: DOUG SMOAK
40 :
50 REM PUBLISHED BY SOFTDISK PUBLISHING INC.
60 :
80 IF B=1 THEN 170
90 :
100 POKE53280,0:POKE53281,0: PRINTCHR$(142)CHR$(8)
110 J=RND(-TI)
120 PRINT"[147]              WATER BOMB"
130 PRINT"           BY GEORGE TREPAL"
140 PRINT" WAIT ABOUT FIFTY SECONDS. THE COMPUTER"
150 PRINT"   IS LOADING WORDS INTO ITS MEMORY."
160 IFB=0THENB=1:LOAD"COM DATA",8,1
170 POKE56,32:POKE52,32
180 GOSUB190:GOTO240
190 TM$="[175][175][175][175][175][175][175]":BM$="[183][183][183][183][183][183][183]"
200 MM$="[170]       [180]   MISSED":RETURN
210 :
220 TM$="[175][175][175][175][175]":BM$="[183][183][183][183][183]"
230 MM$="[170]     [180]     MISSED":RETURN
240 OV$=""
250 VL=54296:WF=54276:HF=54273:LF=54272:AD=54277:SR=54278:POKEVL,15
260 D$=""
270 WS$(0)="[169][169][169][169][169][169][169][169][169][146]":WS$(2)="[223][223][223][223][223][223][223][223][223][146]"
280 WS$(3)="[169][223][169][223][169][223][169][223][169][146]":WS$(1)="[223][169][223][169][223][169][223][169][223][146]"
290 BR$="         [146]"
300 :
310 BR$(1)="                  [146]"
320 A$(0)="    [146][184]    [146]"
330 A$(1)="   [146][184][184]    [146]"
340 A$(2)="  [182][146][183][184][183]   [146]"
350 A$(3)="  [146][183][184][184][183]   [146]"
360 A$(4)=" [182][162][185][175][185][162]  [146]"
370 A$(5)=" [162][185][175] [175][185][162] [146]"
380 A$(6)="[183][184][185][175] [175][185][146][184][183]"
390 :
400 B$(0)="[165][206][163][205] [206][163][205][167]"
410 E$(0)="[165] [172][160] [160][172] [167]"
420 N$(0)="[165][178]  [209]  [178][167]"
430 M$(0)="[165][202][192][195][195][195][192][203][167]"
440 B$(1)="[165][206][163][163] [163][163][205][167]"
450 E$(1)="[165] [188]   [188] [167]"
460 N$(1)=N$(0)
470 M$(1)=M$(0)
480 B$(2)="[165][183][183][205] [206][183][183][167]"
490 E$(2)=E$(1)
500 N$(2)="[165]   [209]   [167]"
510 M$(2)=M$(0)
520 B$(3)=B$(1)
530 E$(3)="[165] [190][160]  [190] [167]"
540 N$(3)=N$(2)
550 M$(3)="[165][192][195][195][195][192][192][192][167]"
560 B$(4)=B$(1)
570 E$(4)=E$(3)
580 N$(4)=N$(2)
590 M$(4)="[165][213][195][195][195][195][195][201][167]"
600 B$(5)="[165] [206][163] [163][205] [167]"
610 E$(5)="[165] [180][190] [188][170] [167]"
620 N$(5)=N$(2)
630 M$(5)="[165] [213][195][195][195][201] [167]"
640 B$(6)=B$(5)
650 E$(6)="[165] [180]> <[170] [167]"
660 N$(6)=N$(2)
670 M$(6)="[165]  [195][195][195]  [167]"
680 T$="[206][163][163][163][163][163][163][163][205]"
690 C$="[205][164][164][164][164][164][164][164][206]"
700 POKE53280,5:POKE53281,5
710 PRINT"[147]       SELECT  YOUR  SKILL  LEVEL"
720 PRINT"LEVEL 1: WORDS LONGER THAN SIX LETTERS  AND SEVEN WRONG GUESSES"
730 PRINT"LEVEL 2: WORDS OF ANY LENGTH AND SEVEN  WRONG GUESSES"
740 PRINT"LEVEL 3: WORDS OF ANY LENGTH AND FIVE   WRONG GUESSES"
750 PRINT"   PRESS THE 1, 2, OR 3 KEY TO SELECT"
760 GETI$:IFI$=""THEN760
770 IFVAL(I$)<1ORVAL(I$)>3THEN760
780 PL=VAL(I$):IFPL=3THENGOSUB220
790 POKE53280,5:POKE53281,15:IFPL<>3THENGOSUB190
800 PRINT"[147]"+D$+"                  [146]"
810 PRINT"   [146][169]         [223]    [146]":PRINT"  [146][169]           [223]   [146]"
820 PRINT" [146][169]             [223]  [146]":PRINT"[169]               [223] [146]"
830 PS$=" [146]"
840 FORJ=1TO11:PRINTPS$:NEXT:PRINTPS$;
850 PRINT""+OV$+TM$:PRINTMM$:PRINTOV$+BM$
860 PRINTD$+OV$+"MYSTERY WORD"
870 PRINT"   GUESS THE MYSTERY WORD OR GET WET!"
880 GOSUB890:FL=1:GOTO960
890 PRINT"[144]"+D$+D$+T$:PRINTB$(N):PRINTE$(N):PRINTN$(N):PRINTM$(N):PRINTC$
900 IFPL=3ANDFL=1THENPRINT""+D$+A$(N+2):GOTO920
910 IFFL=1THENPRINT""+D$+A$(N)
920 IFMF=0THENRETURN
930 POKEWF,17:POKEAD,20:POKESR,0:POKELF,75:FORJ=20TO240STEP4:POKEHF,J
940 NEXT:POKEWF,0
950 MF=0:RETURN
960 PRINT"":FORJ=1TO6:PRINTBR$(1):NEXT
970 GOSUB1410
980 IFPL=1ANDLEN(W$)<7THEN970
990 PRINT""+D$+D$+OV$;:BL$="":FORJ=1TOLEN(W$):BL$="-"+BL$:NEXT:PRINTBL$:N=-1
1000 CT=CT+1:IFCT/15=INT(CT/15)THENWS=WS+1:PRINT""+WS$(WSAND3)
1010 GETA$:ON-(A$="")GOTO1000:IFASC(A$)<65ORASC(A$)>90THEN1000
1020 :
1030 REM COMPARE INPUT TO WORD
1040 FT=0:FORJ=1TOLEN(W$):MD$=MID$(W$,J,1):BS$=MID$(BL$,J,1)
1050 IFMD$=A$THENBS$=A$:FT=1:REM SOUND ROUTINE
1060 TP$=TP$+BS$:NEXT
1070 BL$=TP$:TP$="":PRINT""+D$+D$+OV$+BL$
1080 :
1090 IFFT=0THENN=N+1:MF=1:GOSUB890:ML$=ML$+A$:PRINT""+OV$+ML$
1100 IFN=6THENML$="":GOTO1150
1110 IFPL=3ANDN=4THENML$="":GOTO1150
1120 IFBL$=W$THEN1290
1130 POKE198,0
1140 GOTO1010
1150 PRINT"[144]"+D$+D$+OV$+W$
1160 DS$="         ":FS$="":FB$=""
1170 :
1180 POKEWF,129:POKEAD,255:POKESR,255:POKEHF,72:POKELF,169:POKEVL,8
1190 :
1200 REM WATERFALL
1210 ZZ=FRE(1)
1220 FORJ=1TO16:FS$=FS$+"":PRINTFS$+DS$:FB$=FB$+"":PRINTFB$+BR$:NEXT
1230 PRINTBR$+"[146]";:FORJ=1TO6:FS$=FS$+"":PRINTFS$+DS$:NEXT:PRINTDS$;
1240 FS$="":FB$=""
1250 FORD=1TO70:NEXT
1260 FORJ=15TO0STEP-1:POKEVL,J:POKEWF,129:POKEAD,15:POKEHF,40:POKELF,200:NEXT
1270 POKEWF,0:POKEVL,15
1280 FL=0:N=0:GOTO1320
1290 :
1300 ML$=""
1310 N=0:FL=0
1320 PRINT"[144]"+D$+D$+OV$+"PRESS F7 FOR A"
1330 PRINTOV$+"NEW WORD OR PRESS"
1340 PRINTOV$+"F1 FOR A NEW LEVEL"
1345 PRINTOV$+"F8 FOR UPTIME";
1350 GET A$:IF A$="" THEN 1350
1355 IF A$="[133]" THEN GOSUB 1380:GOTO 710
1360 IF A$="[136]" THEN GOSUB 1380:GOTO 800
1365 IF A$="[140]" THEN SYS (8*4096)+4
1370 GOTO1350
1380 PRINT""+D$+D$+OV$+"              "
1390 PRINTOV$+"                 "
1400 PRINTOV$+"                  ";:RETURN
1410 REM
1420 W$="":M=INT(8196+RND(1)*19180)
1430 M=M+1:IFPEEK(M)<128THEN:GOTO1430
1440 M=M+1:A=PEEK(M)
1450 IFA>128THENA=A-128:W$=W$+CHR$(A):RETURN
1460 W$=W$+CHR$(A):GOTO1440